home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
comm2
/
ums116bt.lha
/
UMS
/
Bin
/
umscopy.v40
< prev
next >
Wrap
AmigaDOS Script File
|
1995-07-09
|
636b
|
35 lines
.key file/A,msgid/A,umsname/A,resultvar/A
.bra {
.ket }
failat 10
set destdir `getenv umsfiles.{umsname}`
if not `echo len 1 $destdir` eq :
if not `echo len 1 $destdir` eq /
set destdir $destdir/
endif
endif
set newfile `list quick lformat "$destdir%n" {file}`
if exists $newfile
set i 1
lab loop
if exists $newfile.$i
set i `eval $i + 1`
skip loop back
endif
set newfile $newfile.$i
endif
failat 21
echo "trying to make link of {file} to $newfile .."
makelink $newfile {file} hard
if error
failat 10
echo "copying {file} to $newfile .."
copy {file} $newfile clone
endif
setenv {resultvar} $newfile